home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_026_19xx_-_de_Disk_1_of_2_Side_B.d64 / conversion64 1.0 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  768b  |  15 lines
  1. 2 print"[193][211][195][201][201] [195]onversion64 v1.0   by [194]ob [203]ober"
  2. 3 open15,8,15
  3. 4 input"[201]nput filename";fi$
  4. 5 open1,8,2,fi$:gosub14 :ifethenclose1:goto4 
  5. 6 input"[207]utput filename";fo$
  6. 7 print"[195]onvert to ([208])et, or ([212])rue [193][211][195][201][201]?";
  7. 8 getc$:on-(c$=""or(c$<>"p"andc$<>"t"))goto8 :print" "c$:c=1:ifc$="p"thenc=0
  8. 9 poke2480,c
  9. 10 open2,8,1,fo$+",s":gosub14 :ifethenclose2:goto6 
  10. 11 sys2481:close15
  11. 12 print:print"[195]onvert another? ([217]/[206])"
  12. 13 poke198,0:wait198,1:getc$:poke198,0:on-(c$="y")goto2 :end
  13. 14 input#15,e,er$:ifethenprint"[207][207][208][211]!"er$
  14. 15 return
  15.